MacWorld 1997 September/Macworld (1997-09).dmg/Serious Software/Cherwell Scientific Demos/pro Fit/pro Fit 5.0 demo (fpu).sea/pro Fit 5.0 demo (fpu)/Examples/Programming - drawing/BullsEye program

Text File | 1996-04-15 | 786b | 30 lines

{
This is a simple example that shows how to draw into a drawing window
from a program. It draws a bull's eye where you last clicked into
the drawing window.
To run the program, first compile it by clicking the button "Add".
Then open a drawing window and click into it. Then choose the
program "BullsEye" from the menu "Misc".
}

program BullsEye;
 const radius = 40; step = 8;
 var x0, y0, t: real;
begin
 GetClickedCoord(x0, y0);    {where you last clicked the drawing window}
 GroupBegin;
 t := step;
 while t<=radius do
 begin
   DrawEllipse(x0-t,y0-t,x0+t,y0+t);
   t := t+step;
 end;
 MoveTo(x0-radius*1.1, y0);
 LineTo(x0+radius*1.1, y0);
 MoveTo(x0, y0-radius*1.1);
 LineTo(x0, y0+radius*1.1);
 GroupEnd;
 MoveTo(x0, y0+radius*1.1 + 20);
 DrawText('Bull´s eye', 0, true);
end;